Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub ActiveZipperPro1_ControlStatus(Val As String, ByVal ZipInf As String)
If UseZip = False Then
stat.Panels(1).Text = Val & "% Completed"
stat.Panels(1).Text = ZipInf
End If
End Sub
Private Sub ActiveZipperPro1_GetDiskNumber()
MsgBox "Number of Disks needed to copy the split files: " & ActiveZipperPro1.DiskNumber
End Sub
Private Sub ActiveZipperPro1_NextDisk()
MsgBox "Please insert the next disk", 64, "ActiveZipper Pro Demo"
End Sub
Private Sub cmdAdd_Click()
'As there is no current way to "Add" files
'to an existing archive, I implemented Replace.
If ActiveZipperPro1.SourceFile = "" Then
frmNew.Show
Else
frmAdd.Show
End If
End Sub
Private Sub cmdExtract_Click()
If frmAZPCoDec.ActiveZipperPro1.SourceFile <> "" Then
frmExtract.Show
End If
End Sub
Private Sub cmdNew_Click()
frmNew.Show
End Sub
Private Sub cmdOpen_Click()
frmOpen.Show
End Sub
Private Sub Command1_Click()
Dim ret As Long
ret = ShellExecute(Me.hwnd, vbNullString, "https://commerce.mindspring.com/cgi-bin/cgiwrap/www09282/reg_it_offsite.pl?2935", vbNullString, vbNullString, 1)
If ret <> 42 Then
MsgBox "How strange, you do not seem to have a browser installed", 64, "ActiveZipper Pro"
End If
End Sub
Private Sub Form_Load()
ActiveZipperPro1.Level = 2000
RFile = False
WState = 1
End Sub
Private Sub Label1_Click()
Prog.Value = Label1.Caption
End Sub
Private Sub mnuAA_Click()
frmAA.Show
End Sub
Private Sub mnuAbout_Click()
frmAbout.Show 1
End Sub
Private Sub mnuExit_Click()
End
End Sub
Private Sub mnuExtract_Click()
If frmAZPCoDec.ActiveZipperPro1.SourceFile <> "" Then
frmExtract.Show
End If
End Sub
Private Sub mnuNew_Click()
frmNew.Show
End Sub
Private Sub mnuOptions_Click()
frmOptions.Show
End Sub
Private Sub mnuSplitArc_Click()
MsgBox "Please take a look at the Options screen before attempting to split an archive", 64, "ActiveZipper Pro Demo"
(.txt)